5 A=4
10 REM LESEN DER DATEI
20 DIM A$(4)
25 DIM B$(4)
30 OPEN1,8,2,"NAMEN,S,W"
40 FOR I=1TOA
50 A$(I)=""
51 GET#1,Z$
52 IF Z$=CHR$(13)THEN60
53 A$(I)=A$(I)+Z$
54 GOTO 52
55 INPUT#1,A$(I)
60 PRINT A$(I)
65 PRINT B$(I)
70 NEXT
80 CLOSE1